home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 16.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-23  |  2.4 KB  |  109 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.  
  17.     Gadget.1 = 'D/196/22/130/Handle Type For Image A /4/Lower Left/Lower Right/Upper Left/Upper Right/'
  18.     ComplexRequest  '"Select Movement Of Image A!"' 1 Gadget 350 60
  19.     if rc ~= 0 then do
  20.         Type1 = 0
  21.         end
  22.     else do
  23.         Type1 = RESULT.1
  24.     end
  25.  
  26.  
  27.     Gadget.1 = 'D/210/22/150/Movement Type For Image B/4/Swing From Right/Swing From Left/Swing From Top/Swing From Bottom'
  28.     ComplexRequest  '"Select Movement Of Image B!"' 1 Gadget 384 60
  29.     if rc ~= 0 then do
  30.         Type2 = 0
  31.         end
  32.     else do
  33.         Type2 = RESULT.1
  34.     end
  35.  
  36.     Gadget.1 = 'Select Color Or Image To Fade From!'
  37.     Gadget.2 = 'COLOR'
  38.     Gadget.3 = 'IMAGE'
  39.     ListRequest 3 Gadget
  40.     Type = 0
  41.     if result = 2 then Type = 0
  42.     if result = 3 then Type = 1
  43.  
  44.     if Type = 1 then do
  45.         ReDraw On
  46.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  47.         RequestNotify "Look At Examples For FileName Then Click OK"
  48.  
  49.         RequestFile '"Select File To Use For BackGround!" "VFXIFX:Images/Seamless" ""'
  50.         PicName = result
  51.         ColorPic = 1
  52.         Color = 1
  53.         Scroll = 0
  54.         XOff = 0
  55.         YOff = 0
  56.  
  57.         Gadget.1 = 'Do You Wish To Scroll Image?'
  58.         Gadget.2 = 'Scroll Image'
  59.         Gadget.3 = 'Do NOT Scroll'
  60.         ListRequest 3 Gadget
  61.         if result = 2 then Scroll = 1
  62.         if result = 3 then Scroll = 0
  63.         if Scroll = 1 then do
  64.  
  65.             text1 = '"Move X"'
  66.             text2 = '"Move Y"'
  67.             Gadget.1  = 'SLIDER LE=60 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  68.             Gadget.2  = 'SLIDER LE=60 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  69.             Gadget.3 = 'END'
  70.             NewComplexRequest  '"Select X & Y Movements!"' Gadget 250 42
  71.             if rc ~= 0 then do
  72.                 XOff = 0
  73.                 YOff = 0
  74.                 end
  75.             else do
  76.                 XOff = RESULT.1
  77.                 YOff = RESULT.2
  78.                 end
  79.             end
  80.  
  81.         end
  82.     else do
  83.  
  84.         ActiveColor 0
  85.         RequestNotify "Click On Color To Use As BackGround Then Click OK"
  86.         ActiveColor
  87.         Color = result
  88.         ColorPic = 0
  89.         PicName = ""
  90.         Scroll = 0
  91.         XOff = 0
  92.         YOff = 0
  93.         ActiveColor 1
  94.         end
  95.  
  96.  
  97.  
  98.  
  99. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  100. call writeln TempFile,Color
  101. call writeln TempFile,ColorPic
  102. call writeln TempFile,PicName
  103. call writeln TempFile,Scroll
  104. call writeln TempFile,XOff
  105. call writeln TempFile,YOff
  106. call writeln TempFile,Type1
  107. call writeln TempFile,Type2
  108. call close TempFile
  109.